unit ATestModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AModelBrowser, DB, DBAccess, Menus, ActnList,
  frxClass, frxDesgn, ComCtrls, ToolWin, 
  cxTL, cxMaskEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxInplaceContainer, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxDBEdit, StdCtrls;

type
  TATestModelForm = class(TAModelBrowserFrame)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ATestModelForm: TATestModelForm;

implementation
uses APubFramShowModel;

{$R *.dfm}



procedure TATestModelForm.btn1Click(Sender: TObject);
begin
  inherited;
  if APubFramShowModelForm = nil then
  APubFramShowModelForm := TAPubFramShowModelForm.Create(self);
  if not Assigned( ATestModelForm ) then
      ATestModelForm := TATestModelForm.Create(nil);
  ATestModelForm.Parent := APubFramShowModelForm;
  APubFramShowModelForm.ShowModal;

  ATestModelForm.Align := alClient;
  FreeAndNil(APubFramShowModelForm);
end;


initialization
  RegisterClass(TATestModelForm);
finalization
  UnRegisterClass(TATestModelForm);

end.
